(x_list_fonts): Request at least 10 fonts by XListFonts.

diff --git a/src/xterm.c b/src/xterm.c
index 742bffd84d96bf3bf063aa403d3ceeddfecb5325..8955b345140e0c84bed3066064b63ffb6c1c1745 100644 (file)
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -6359,6 +6359,10 @@ x_list_fonts (f, pattern, size, maxnames)
   if (NILP (patterns))
     patterns = Fcons (pattern, Qnil);
 
+  /* We try at least 10 fonts because X server will return auto-scaled
+     fonts at the head.  */
+  if (maxnames < 10) maxnames = 10;
+
   for (; CONSP (patterns); patterns = XCONS (patterns)->cdr)
     {
       int num_fonts;